function [R,C,sens]=celdas_flrtwlp(Wp,Qp,G,Wz,seteados)
    R=zeros(6,1);
    C=zeros(2,1);
    
    R(1) = seteados(1);
    R(3) = seteados(2);
    
    C(1) = 1/(R(1)*Wp);
    C(2) = C(1);
    R(4) = R(3);
    R(2) = Qp*R(1);
    R(5) = R(1);
    R(6) = R(1)/G;
    
    sens = ones(8,4);
    sens(:,1) = SenFleischerWp();
    sens(:,2) = SenFleischerQ();
    sens(:,3) = SenFleischerG();
    sens(:,4) = SenFleischerWz();

function [senWp]= SenFleischerWp()
senWp(1) = -0.5;
senWp(2) = 0;
senWp(3) = 0;
senWp(4) = -0.5;
senWp(5) = 0.5;
senWp(6) = -0.5;
senWp(7) = -0.5;
senWp(8) = -0.5;

function [senWz]= SenFleischerWz()
senWz(1) = 0;
senWz(2) = 0;
senWz(3) = 0;
senWz(4) = 0;
senWz(5) = 0;
senWz(6) = 0;
senWz(7) = 0;
senWz(8) = 0;

function [senG]= SenFleischerG()
senG(1) = 1;
senG(2) = 0;
senG(3) = 0;
senG(4) = 0;
senG(5) = 0;
senG(6) = -1;
senG(7) = 0;
senG(8) = 0;    

function [senQ]= SenFleischerQ()
senQ(1) = -0.5;
senQ(2) = 1;
senQ(3) = 0;
senQ(4) = -0.5;
senQ(5) = 0.5;
senQ(6) = -0.5;
senQ(7) = 0.5;
senQ(8) = -0.5;
